﻿Module ModProgram

    Public Sub Main()

        Settings.Reload()

        Console.WriteLine()

        AddText("Bienvenue sur le serveur de MY.LIEK.", ConsoleColor.White)

        ReDim Accounts(Settings.MaximumPlayers)
        ReDim Clients(Settings.MaximumPlayers)
        ReDim Maps(Settings.MaximumMaps)
        ReDim Classes(Settings.MaximumClasses)

        For i As Integer = 1 To Settings.MaximumPlayers
            Accounts(i) = New Account
            Clients(i) = New Client
        Next

        For i As Integer = 1 To Settings.MaximumMaps
            Maps(i) = New Map
            Maps(i).Number = i
        Next

        For i As Integer = 1 To Settings.MaximumClasses
            Classes(i) = New Classe
        Next

        Map.LoadAllMaps()

        ModNetworks.InitNetworks()

    End Sub

    Public Sub AddText(ByVal Text As String, Optional ByVal Color As ConsoleColor = ConsoleColor.Gray)
        Console.ForegroundColor = Color
        Console.WriteLine(Space(2) & "> " & Text)
        Console.ResetColor()
    End Sub



End Module
